home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Communications Toolbox / CTB Development Resources / CommToolbox Roadmap / Comm Toolbox / Comm Toolbox / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-05-12  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>3048</cardID>
  8.     <listID>4434</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>================================================================
  17. --         Communication Toolbox Presentation Stacks
  18. --
  19. --    Apple Computer, Inc.
  20. --    Software Development Training
  21. --
  22. --    Stacks:  Gabriel Acosta
  23. --    Sources: Inside the Macintosh Communications Toolbox
  24. --             Alex Kazim, James Beninghaus
  25. =================================================================
  26.  
  27. -- ***
  28. on openStack
  29. if "Comm Toolbox" is not in the stacksInUse then
  30. set userLevel to 5
  31. start using stack "Comm Toolbox"
  32. reset paint
  33. initSlides
  34. else setTheMode
  35. disItem "Communications Toolbox"
  36. if short name of this card is "intro" then doIntro
  37. ----- DEVELOPMENT ONLY ------
  38. -- feedMenu
  39. -----------------------------
  40. end openStack
  41.  
  42. -- ***
  43. on initSlides
  44. setMenus
  45. travelMenu
  46. modeMenu
  47. setTheMode
  48. end initSlides
  49.  
  50. -- ***
  51. on closeStack
  52. --enaItem "Communications Toolbox"
  53. end closeStack
  54.  
  55. -- ***
  56. on modeMenu
  57. if "mode" is not in the menus then
  58. create menu "Mode"
  59. put "Teacher" into menu "Mode" with menuMessage "setMode 1"
  60. put "Student" after menu "Mode" with menuMessage "setMode 2"
  61. if (bottom of cd window) - (top of cd window) is 342
  62. then set checkMark of menuItem "Student" of menu "mode" to TRUE
  63. else set checkMark of menuItem "Teacher" of menu "mode" to TRUE
  64. end if
  65. end modeMenu
  66.  
  67. -- ***
  68. on travelMenu
  69. if "travel" is not in the menus then
  70. create menu "Travel"
  71. put "Communications Toolbox" into menu "Travel" with ¬¨
  72. menuMessage "goMenu"
  73. put "-" after menu "Travel"
  74. put "Intro to Comm Toolbox" after menu "Travel" with menuMessage "goICTB"
  75. put "Comm Resource Manager" after menu "Travel" with menuMessage "goCRM"
  76. put "Connection Manager" after menu "Travel" with menuMessage "goCM"
  77. put "File Transfer Manager" after menu "Travel" with menuMessage "goFTM"
  78. put "Terminal Manager" after menu "Travel" with menuMessage "goTM"
  79. end if
  80. end travelMenu
  81.  
  82. -- ***
  83. on doIntro
  84. wait 20
  85. visual dissolve slow
  86. go next
  87. wait 20
  88. visual wipe right
  89. go next
  90. end doIntro
  91.  
  92. -- ***
  93. on setMenus
  94. delete menuItem "New Stack..." of menu "File"
  95. delete menuItem "Save A Copy..." of menu "File"
  96. delete menuItem 3 of menu "File"
  97. delete menuItem "Compact Stack" of menu "File"
  98. delete menuItem "Protect Stack..." of menu "File"
  99. delete menuItem "Delete Stack..." of menu "File"
  100. delete menuItem "Page Setup..." of menu "File"
  101. delete menuItem "Print Field..." of menu "File"
  102. delete menuItem "Print Report..." of menu "File"
  103.  
  104. repeat 9
  105. delete menuItem 7 of menu "Edit"
  106. end repeat
  107.  
  108. delete menuItem "Help" of menu "Go"
  109. delete menuItem "Recent" of menu "Go"
  110. repeat 5
  111. delete menuItem 8 of menu "Go"
  112. end repeat
  113.  
  114. delete menu "Tools"
  115. delete menu "Objects"
  116. delete menu "Font"
  117. delete menu "Style"
  118. end setMenus
  119.  
  120. -- ***
  121. on quitCommToolbox
  122. stop using stack "Comm Toolbox"
  123. reset menubar
  124. if "mode" is in the menus then delete menu "mode"
  125. if "travel" is in the menus then delete menu "travel"
  126. ----- DEVELOPMENT ONLY ------
  127. --delete menu "CTB"
  128. -----------------------------
  129. end quitCommToolbox
  130.  
  131.  
  132.  
  133. |||||| GENERAL HANDLERS ||||||
  134. -- ***
  135. on setMode type
  136. put rect of cd window into CdRect
  137. if type = 1 then
  138. if item 3 of CdRect > 600 then
  139. put (item 2 of CdRect + 344) into item 4 of CdRect
  140. else  put (item 2 of CdRect + 272) into item 4 of CdRect
  141. set checkMark of menuItem "Teacher" of menu "mode" to TRUE
  142. set checkMark of menuItem "Student" of menu "mode" to FALSE
  143. else if type = 2 then
  144. if item 3 of CdRect > 600 then
  145. put (item 2 of CdRect + 432) into item 4 of CdRect
  146. else  put (item 2 of CdRect + 342) into item 4 of CdRect
  147. set checkMark of menuItem "Student" of menu "mode" to TRUE
  148. set checkMark of menuItem "Teacher" of menu "mode" to FALSE
  149. end if
  150. set rect of cd window to CdRect
  151. end setMode
  152.  
  153. -- ***
  154. on setTheMode
  155. if checkMark of menuItem "Student" of menu "Mode" is TR